Mac Mania 2/MacMania 2.toast/Demo's/Tools&Utilities/JUNO Librarian 1.0.3/Sample Scripts/12 Set Comment Text - 3

Text File | 1994-01-28 | 227 b | 9 lines | [TEXT/ToyS]

tell application "JUNO Librarian"
    activate -- if needed
    set x to "This patch was made by T.Suzuki"
    repeat while (Text 1 of Window -1 is not x)
        set Index of Window -1 to 1
        set Text 1 of Window 1 to x
    end repeat
end tell